home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Other Langs / Tickle-4.0 (tcl) / library / maclib.tcl < prev    next >
Encoding:
Text File  |  1993-11-04  |  193 b   |  16 lines  |  [TEXT/MPS ]
  1. #
  2. # Macintosh tcl library.
  3. #
  4.  
  5. if {! [info exists MACINTOSH]} {
  6.     return ""
  7. }
  8.  
  9. proc cat { file } {
  10.     set myfd [open $file "r"]
  11.     set result [read $myfd]
  12.     close $myfd
  13.     # crange $result 0 "end-1"
  14. }
  15.  
  16.